home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / estenw_1 / mainmenu.frm < prev    next >
Text File  |  1998-04-25  |  4KB  |  167 lines
  1. VERSION 5.00
  2. Begin VB.Form Menu 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    BorderStyle     =   0  'None
  6.    ClientHeight    =   9000
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   12000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    PaletteMode     =   1  'UseZOrder
  14.    Picture         =   "MainMenu.frx":0000
  15.    ScaleHeight     =   9000
  16.    ScaleWidth      =   12000
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    WindowState     =   2  'Maximized
  20.    Begin VB.Timer Timer1 
  21.       Interval        =   8400
  22.       Left            =   15
  23.       Top             =   0
  24.    End
  25.    Begin VB.Image newgame 
  26.       Height          =   450
  27.       Left            =   4560
  28.       MouseIcon       =   "MainMenu.frx":75742
  29.       MousePointer    =   99  'Custom
  30.       Picture         =   "MainMenu.frx":7600C
  31.       Top             =   2025
  32.       Width           =   3000
  33.    End
  34.    Begin VB.Image saveactive 
  35.       Height          =   450
  36.       Left            =   4560
  37.       MouseIcon       =   "MainMenu.frx":77BBE
  38.       MousePointer    =   99  'Custom
  39.       Picture         =   "MainMenu.frx":78488
  40.       Top             =   2760
  41.       Visible         =   0   'False
  42.       Width           =   3000
  43.    End
  44.    Begin VB.Image saveinactive 
  45.       Height          =   450
  46.       Left            =   4560
  47.       MousePointer    =   99  'Custom
  48.       Picture         =   "MainMenu.frx":7A03A
  49.       Top             =   2760
  50.       Width           =   3000
  51.    End
  52.    Begin VB.Image restoreactive 
  53.       Height          =   450
  54.       Left            =   4560
  55.       MouseIcon       =   "MainMenu.frx":7BBEC
  56.       MousePointer    =   99  'Custom
  57.       Picture         =   "MainMenu.frx":7C4B6
  58.       Top             =   3480
  59.       Visible         =   0   'False
  60.       Width           =   3000
  61.    End
  62.    Begin VB.Image restoreinactive 
  63.       Height          =   450
  64.       Left            =   4560
  65.       MousePointer    =   99  'Custom
  66.       Picture         =   "MainMenu.frx":7E068
  67.       Top             =   3480
  68.       Width           =   3000
  69.    End
  70.    Begin VB.Image OptionsButton 
  71.       Height          =   450
  72.       Left            =   4560
  73.       MouseIcon       =   "MainMenu.frx":7FC1A
  74.       MousePointer    =   99  'Custom
  75.       Picture         =   "MainMenu.frx":804E4
  76.       Top             =   4725
  77.       Width           =   3000
  78.    End
  79.    Begin VB.Image exit 
  80.       Height          =   450
  81.       Left            =   4560
  82.       MouseIcon       =   "MainMenu.frx":82096
  83.       MousePointer    =   99  'Custom
  84.       Picture         =   "MainMenu.frx":82960
  85.       Top             =   7530
  86.       Width           =   3000
  87.    End
  88. End
  89. Attribute VB_Name = "Menu"
  90. Attribute VB_GlobalNameSpace = False
  91. Attribute VB_Creatable = False
  92. Attribute VB_PredeclaredId = True
  93. Attribute VB_Exposed = False
  94.  
  95.  
  96.  
  97. Private Sub view_Click()
  98.   End
  99. End Sub
  100.  
  101. Private Sub Image2_Click()
  102.   Form1.Visible = False
  103.   Form2.Visible = True
  104. End Sub
  105.  
  106. Private Sub Image7_Click()
  107.   Form3.Visible = True
  108. End Sub
  109.  
  110.  
  111. Private Sub exit_Click()
  112. End
  113. End Sub
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122. Private Sub Form_Load()
  123. OLEform.Domotozje.DoVerb
  124. End Sub
  125.  
  126. Private Sub newgame_Click()
  127.  CharGen.Show
  128.  CharGen.Visible = True
  129.  Unload Menu
  130. End Sub
  131.  
  132.  
  133. Private Sub Options_Click()
  134. main.Visible = False
  135. Options.Visible = True
  136. End Sub
  137.  
  138.  
  139.  
  140. Private Sub OptionsButton_Click()
  141.   Options.Visible = True
  142. End Sub
  143.  
  144.  
  145. Private Sub Timer1_Timer()
  146. OLEform.Domotozje.DoVerb
  147. End Sub
  148.  
  149.  
  150. Private Sub Timer2_Timer()
  151.   If Timer2.Interval = 1 Then
  152.      CAL
  153.      Line1.Visible = True And Line2.Visible = True
  154.   ElseIf Timer2.Interval = 3 Then
  155.      CAL
  156.      Line3.Visible = True And Line4.Visible = True
  157.   ElseIf Timer2.Interval = 5 Then
  158.      CAL
  159.      Line5.Visible = True And Line6.Visible = True
  160.   ElseIf Timer2.Interval = 7 Then
  161.      CAL
  162.      Line7.Visible = True And Line8.Visible = True
  163.   End If
  164. End Sub
  165.  
  166.  
  167.